From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 18 Apr 1994 23:53:51 +0000 (+0000)
Subject: (outline-end-of-subtree): Stop before final newline.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~92109
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d8ec2bc893a1238880823760835a4d5ecc085897;p=emacs.git

(outline-end-of-subtree): Stop before final newline.
---

diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el
index 17845d8d4d1..7374d4c0bda 100644
--- a/lisp/textmodes/ooutline.el
+++ b/lisp/textmodes/ooutline.el
@@ -417,13 +417,13 @@ while if FLAG is `\\^M' (control-M) the text is hidden."
 		(or first (> (funcall outline-level) level)))
       (setq first nil)
       (outline-next-heading))
-    (if (eobp)
-	nil
-      ;; go to end of line before heading
-      (forward-char -1)
-      ;; skip preceding blank line, if there is one
-      (if (memq (preceding-char) '(?\n ?\^M))
-	  (forward-char -1)))))
+    (if (memq (preceding-char) '(?\n ?\^M))
+	(progn
+	  ;; got to end of line before heading
+	  (forward-char -1)
+	  (if (memq (preceding-char) '(?\n ?\^M))
+	      ;; leave blank line before heading
+	      (forward-char -1))))))
 
 (defun show-branches ()
   "Show all subheadings of this heading, but not their bodies."